home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan / Opus 5 - Magellan.iso / Extras / D51_NUSource / Source / DOpusFuncs / WinCopy.s < prev    next >
Text File  |  1995-09-24  |  949b  |  25 lines
  1. ***************************************************************************************
  2. * WinCopy subroutine for DOpusFuncs.s                              *
  3. ***************************************************************************************
  4. WinCopy
  5.     Tst.l    WinCopy_S(a5)
  6.     Bne.s    WinCopy_DoIt
  7.     RTS
  8. WinCopy_DoIt
  9.     Sub.l    d0,d0            Abort if there isn't a source lister.
  10.     Bsr    GetSourceHandle        Get the source lister's handle -> Source_Handle
  11.  
  12.     Moveq    #1,d0            Open new dest if one doesn't exist.
  13.     Bsr    GetDestHandle        Get the dest lister's handle -> Dest_Handle
  14. ;-------------------------------------------------------------------------------------;
  15.     Lea    Source_Handle(a5),a0    -.
  16.     Lea    PathBuffer1(a5),a1     |_ Source path
  17.     Move.w    #PathBuffer1Len,d7     |  to PathBuffer1
  18.     Bsr    GetListerPath        -'
  19.  
  20.     Sub.l    d0,d0            Don't force into current path buffer.
  21.     Lea    Dest_Handle(a5),a0    -.
  22.     Lea    PathBuffer1(a5),a1     |- Read old Source path -> Destination.
  23.     Bra    ReadListerPath        -'
  24. ;;;;;;;    RTS for us.
  25.